home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / IE Server Connections.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  65 lines
  1. [SETTINGS]
  2. category=Software Tweaks::Internet Explorer::Simultaneous Server Connections
  3. Caption=Simultaneous Server Connections
  4. version=1.0
  5. #=This ôtweakö can significantly increase browsing performance by increasing the maximum number of TCP connections per server that your browser uses. They are split in HTTP 1.0 servers (old standard) and HTTP 1.1 servers (modern standard).
  6. #=Default settings are "4" for 1.0 servers and "2" for 1.1 servers. To set the default values, clear the text boxes and click Apply.
  7. #=Recommended : 10 for both the values.
  8.  
  9. Author=
  10. LEVEL=2
  11.  
  12. [INTERFACE]
  13. TYPE=multi
  14. type0=spin
  15. style0=1,99
  16. Text0=Max. Connections (HTTP/1.0) :
  17. Text1=Max. Connections (HTTP/1.1) :
  18. type1=spin
  19. style1=1,99
  20.  
  21.  
  22. [SCRIPT]
  23. Dim strkey,sVal1,sVal2
  24. strkey="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
  25. sVal1="MaxConnectionsPer1_0Server"
  26. sVal2="MaxConnectionsPerServer"
  27.  
  28. Sub OnInit()  
  29. Dim i
  30.  if RegKeyExists(strkey) then
  31.     i=RegReadValue(strkey & sVal1)
  32.  '   if isempty(i) then i = 4 'def val
  33.     SetItemText 0,i
  34.     i=RegReadValue(strkey & sVal2)
  35.   '  if isempty(i) then i = 2 'def val
  36.     SetItemText 1,i
  37.  else
  38.     DisableWindow
  39.  end if
  40. End Sub
  41.  
  42. Sub OnApply(x,y)
  43. Dim i
  44.  i=GetItemText(0)
  45.  
  46.  if len(i)=0 then
  47.     i=RegReadValue(strkey & sVal1)
  48.     if IsEmpty(i)=false then
  49.        Call RegDeleteVal(strkey & sVal1)
  50.     end if
  51.  else
  52.     Call RegWriteValue(strkey & sVal1,i,2)
  53.  end if
  54.  i=GetItemText(1)
  55.  if len(i)=0 then
  56.     i=RegReadValue(strkey & sVal2)
  57.     if IsEmpty(i)=false then
  58.        Call RegDeleteVal(strkey & sVal2)
  59.     end if
  60.  else
  61.     Call RegWriteValue(strkey & sVal2,i,2)
  62.  end if
  63.  Call Logoff()
  64. End Sub
  65.